home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Data 2005 November / CD Rom Data Kasım 2005.iso / Media / Program.dcr / script_1_script_Genel.ls < prev    next >
Encoding:
Text File  |  2005-09-23  |  1.7 KB  |  47 lines
  1. global Prgler, PrgNo, ResNo, Resimler
  2.  
  3. on prepareMovie
  4.   Prgler = baFolderList(the moviePath & "Programlar")
  5.   Spler = [20, 30]
  6.   repeat with x in Spler
  7.     repeat with i = x + Prgler.count to x + 9
  8.       sprite(i).visible = 0
  9.     end repeat
  10.   end repeat
  11.   repeat with i = 1 to Prgler.count
  12.     a = the moviePath & "Programlar\" & Prgler[i] & "\" & Prgler[i] & ".txt"
  13.     importFileInto(member("text_Programlar_metin"), the moviePath & "\Programlar\" & Prgler[i] & "\" & Prgler[i] & ".txt")
  14.     member(4, "metinler").name = "text_Programlar_metin"
  15.     member("text_Programlar_" & i).text = member("text_Programlar_metin").line[1]
  16.   end repeat
  17.   PrgNo = 1
  18.   PrgOku()
  19. end
  20.  
  21. on PrgOku
  22.   importFileInto(member("text_Programlar_metin"), the moviePath & "\Programlar\" & Prgler[PrgNo] & "\" & Prgler[PrgNo] & ".txt")
  23.   member(4, "metinler").name = "text_Programlar_metin"
  24.   SAdet = member("text_Programlar_metin").line.count
  25.   member("text_Program_Baslik").text = member("text_Programlar_metin").line[1]
  26.   member("text_Program_Aciklama").text = member("text_Programlar_metin").line[2..SAdet]
  27.   Resimler = baFileList(the moviePath & "Programlar\" & Prgler[PrgNo] & "\", "??.jpg")
  28.   if Resimler.count > 0 then
  29.     ResNo = 1
  30.     sprite(8).visible = 1
  31.     importFileInto(member("Resim"), the moviePath & "\Programlar\" & Prgler[PrgNo] & "\" & Resimler[ResNo])
  32.     member(1, 1).name = "Resim"
  33.     resKirp(200, 130, 8)
  34.   else
  35.     sprite(8).visible = 0
  36.   end if
  37.   sprite(10).visible = 0
  38.   if Resimler.count < 2 then
  39.     sprite(11).visible = 0
  40.   else
  41.     sprite(11).visible = 1
  42.   end if
  43.   KCubuk = member("text_Program_Aciklama").lineCount > 22
  44.   sprite(15).visible = KCubuk
  45.   sprite(16).visible = KCubuk
  46. end
  47.